home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 023 - Big U Macroworks.dsk / COPYRIGHT.1985.bas < prev    next >
BASIC Source File  |  2019-02-16  |  660b  |  15 lines
  1. 100  ONERR  GOTO 190
  2. 110  DIM A(24): PRINT  CHR$(21):Q$ =  CHR$(34)
  3. 120  PRINT  CHR$(4)"-SUPER.POKE"
  4. 130  FOR J = 1 TO 24: READ A(J): NEXT 
  5. 140  PRINT : PRINT "PRESS RETURN FOR A "Q$"SUPER.POKE"Q$" DEMO ";: GET X$
  6. 150  FOR C = 185 TO 160  STEP  -1: REM  SEE PEEKS & POKES CHART
  7. 160  FOR J = 24 TO 1  STEP  -1
  8. 170  &  POKE A(J):A(J) +39,C
  9. 180  NEXT : NEXT : VTAB 23: DEL 120,120: END 
  10. 190 ER =  PEEK(222): IF ER = 16  THEN 300
  11. 210  POKE 216,0: RESUME : REM <CTRL-M><CTRL-M>SCREEN ADDRESSES<CTRL-M>
  12. 220  DATA  1024,1152,1280,1408,1536,1664
  13. 230  DATA  1792,1920,1064,1192,1320,1448
  14. 240  DATA  1576,1704,1832,1960,1104,1232
  15. 250  DATA  1360,1488,1616,1744,1872,2000